home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Apple Demos / Training / HyperCard 2.0 Training / Intro to HyperCard 2.0 / card_14149.txt < prev    next >
Encoding:
Text File  |  1990-08-24  |  1.8 KB  |  78 lines
  1. -- card: 14149 from stack: in.0
  2. -- bmap block id: 14431
  3. -- flags: 0000
  4. -- background id: 15491
  5. -- name: 
  6. ----- HyperTalk script -----
  7. -- make the star circle Newton's head
  8. on StarCircle
  9.   set cursor to none
  10.   show btn "star"
  11.   repeat 4
  12.     set the loc of btn "star" to 266,126
  13.     wait 5
  14.     set the loc of btn "star" to 243,128
  15.     wait 5
  16.     set the loc of btn "star" to 221,128
  17.     wait 5
  18.     set the loc of btn "star" to 198,128
  19.     wait 5
  20.     set the loc of btn "star" to 181,121
  21.     wait 5
  22.     set the loc of btn "star" to 196,112
  23.     wait 5
  24.     set the loc of btn "star" to 261,113
  25.   end repeat
  26. end StarCircle
  27.  
  28.  
  29. -- part 1 (button)
  30. -- low flags: 80
  31. -- high flags: 0000
  32. -- rect: left=245 top=97 right=129 bottom=277
  33. -- title width / last selected line: 0
  34. -- icon id / first selected line: 284 / 284
  35. -- text alignment: 1
  36. -- font id: 0
  37. -- text size: 12
  38. -- style flags: 0
  39. -- line height: 16
  40. -- part name: star
  41.  
  42.  
  43. -- part 2 (button)
  44. -- low flags: 00
  45. -- high flags: 0000
  46. -- rect: left=474 top=195 right=224 bottom=506
  47. -- title width / last selected line: 0
  48. -- icon id / first selected line: 24471 / 24471
  49. -- text alignment: 1
  50. -- font id: 0
  51. -- text size: 12
  52. -- style flags: 0
  53. -- line height: 16
  54. -- part name: MapBtn
  55. ----- HyperTalk script -----
  56. -- Go to the Map stack.  "CameFrom" holds the name of this cd
  57. -- so the Map can hilite the cd the user came from.
  58.  
  59. on mouseUp
  60.   global DisSpeed, CameFrom, MapMode
  61.   set the hilite of me to true
  62.   lock Screen
  63.   set the hilite of me to false
  64.   put "Introduction to" into CameFrom
  65.   put last char of the icon of bg btn "section" into sectionNum
  66.   if sectionNum > 3 then put 2 into sectionNum
  67.   put "section" && sectionNum & ":" into SubCd
  68.   visual DisSpeed
  69.   if MapMode is "graph" then
  70.     go to cd SubCd of stack "‚Ä¢HC 2.0-3"
  71.     HiliteMap
  72.   else
  73.     go to cd "indexmap" of stack "‚Ä¢HC 2.0-3"
  74.   end if
  75.   unlock screen with DisSpeed
  76. end mouseUp
  77.  
  78.